foldchange <- function(kb, phenotype) {
    
}